object frmmodule: Tfrmmodule
  Left = 0
  Top = 0
  Caption = #27169#22359#31649#29702
  ClientHeight = 376
  ClientWidth = 697
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object tlb1: TToolBar
    Left = 0
    Top = 0
    Width = 697
    Height = 21
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'tlb1'
    ShowCaptions = True
    TabOrder = 0
    object btnadd: TToolButton
      Left = 0
      Top = 0
      Caption = #26032#22686
      ImageIndex = 0
      OnClick = btnaddClick
    end
    object btnedit: TToolButton
      Left = 55
      Top = 0
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = btneditClick
    end
    object btndel: TToolButton
      Left = 110
      Top = 0
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = btndelClick
    end
    object btn1: TToolButton
      Left = 165
      Top = 0
      Caption = #21047#26032
      ImageIndex = 3
      OnClick = btn1Click
    end
    object btn2: TToolButton
      Left = 220
      Top = 0
      Caption = #36864#20986
      ImageIndex = 4
      OnClick = btn2Click
    end
    object btn3: TToolButton
      Left = 275
      Top = 0
      Caption = #26435#38480#35774#32622
      ImageIndex = 5
      OnClick = btn3Click
    end
  end
  object dbgrdh1: TDBGridEh
    Left = 0
    Top = 21
    Width = 433
    Height = 355
    Align = alClient
    DataGrouping.GroupLevels = <>
    DataGrouping.DefaultStateExpanded = True
    DataSource = DataModule1.dsmodule
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    IndicatorOptions = [gioShowRowIndicatorEh]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = dbgrdh1CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'moduleid'
        Footers = <>
        Title.Caption = #32534#21495
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'modulecode'
        Footers = <>
        Title.Caption = #32534#30721
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'modulename'
        Footers = <>
        Title.Caption = #21517#31216
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'url'
        Footers = <>
        Width = 200
      end
      item
        EditButtons = <>
        FieldName = 'target'
        Footers = <>
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'memo'
        Footers = <>
        Title.Caption = #22791#27880
        Width = 200
      end
      item
        EditButtons = <>
        FieldName = 'sortid'
        Footers = <>
        Title.Caption = #25490#24207
      end
      item
        EditButtons = <>
        FieldName = 'valid'
        Footers = <>
        Title.Caption = #26159#21542#21487#29992
        Width = 40
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object rzszpnl1: TRzSizePanel
    Left = 433
    Top = 21
    Width = 264
    Height = 355
    Align = alRight
    Caption = #29992#25143
    HotSpotVisible = True
    SizeBarWidth = 7
    TabOrder = 2
    object rzgrpbx1: TRzGroupBox
      Left = 8
      Top = 0
      Width = 256
      Height = 355
      Align = alClient
      Caption = #25317#26377#26435#38480#30340#29992#25143
      TabOrder = 0
      object tlb2: TRzToolbar
        Left = 1
        Top = 14
        Width = 254
        Height = 29
        BorderInner = fsNone
        BorderOuter = fsGroove
        BorderSides = [sdTop]
        BorderWidth = 0
        Caption = #21024#38500#29992#25143
        TabOrder = 0
        ToolbarControls = (
          btn4
          btn5)
        object btn4: TRzToolButton
          Left = 4
          Top = 2
          Width = 64
          ShowCaption = True
          UseToolbarButtonSize = False
          UseToolbarShowCaption = False
          Caption = #36873#25321#29992#25143
          Visible = False
        end
        object btn5: TRzToolButton
          Left = 68
          Top = 2
          Width = 60
          ShowCaption = True
          UseToolbarShowCaption = False
          Caption = #21024#38500#29992#25143
          OnClick = btn5Click
        end
      end
      object tvpopedom: TRzTreeView
        Left = 1
        Top = 43
        Width = 254
        Height = 311
        SelectionPen.Color = clBtnShadow
        Align = alClient
        Indent = 19
        RightClickSelect = True
        ShowLines = False
        TabOrder = 1
      end
    end
  end
  object ds1: TUniDataSource
    Left = 216
    Top = 80
  end
  object unipopedom2: TUniTable
    TableName = 'tsys_popedom'
    Connection = DataModule1.uniconn
    Left = 64
    Top = 112
  end
  object uniuser: TUniQuery
    Connection = DataModule1.uniconn
    SQL.Strings = (
      
        'select * from tsys_user where userid in (select userid from tsys' +
        '_user_module_popedom where moduleid=:moduleid)')
    Left = 280
    Top = 248
    ParamData = <
      item
        DataType = ftInteger
        Name = 'moduleid'
        ParamType = ptInput
      end>
  end
  object unipopedom: TUniQuery
    Connection = DataModule1.uniconn
    SQL.Strings = (
      
        'select b.name,a.functionkey,c.userid from tsys_module_popedom a ' +
        'left join tsys_popedom b on a.functionkey=b.functionkey left joi' +
        'n tsys_user_module_popedom c on a.moduleid=c.moduleid and a.func' +
        'tionkey=c.functionkey where a.moduleid=:moduleid and c.userid=:u' +
        'serid')
    Left = 280
    Top = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'moduleid'
      end
      item
        DataType = ftUnknown
        Name = 'userid'
      end>
  end
end
